home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amosprog.lha / REQRequest.AMOS / REQRequest.amosSourceCode
AMOS Source Code  |  2008-08-08  |  2KB  |  72 lines
  1. '****************************************
  2. '*     REQ Requester dla Amosa Pro      *
  3. '*      (c) Marcin Szumiela 1995        *
  4. '****************************************
  5.  
  6. '         ekran amosa do ty�u  
  7. '----------------------------------------- 
  8. Amos To Back 
  9.  
  10.  
  11. '     rezerwowanie bank�w na nazwy 
  12. '----------------------------------------- 
  13. Reserve As Work 17,300
  14. Reserve As Work 18,200
  15. Reserve As Work 19,200
  16. Reserve As Work 20,200
  17.  
  18. '         inicjacja zmiennej 
  19. '----------------------------------------- 
  20. ZMIENNA=Start(17)
  21.  
  22. '     inicjacja nazw dla requestera
  23. '----------------------------------------- 
  24. NAZWAREQ$='REQ Amosa Pro'
  25. Poke$ Start(18),'SYS:'
  26. Poke$ Start(19),'Wybierz plik'
  27.  
  28. '          struktura requestera
  29. '----------------------------------------- 
  30. Doke ZMIENNA,0
  31. Loke ZMIENNA+2,Varptr(NAZWAREQ$)
  32. Loke ZMIENNA+6,Start(18)
  33. Loke ZMIENNA+10,Start(19)
  34. Loke ZMIENNA+14,Start(20)
  35. Loke ZMIENNA+18,0
  36.  
  37. Doke ZMIENNA+22,0
  38. Doke ZMIENNA+24,0
  39. Doke ZMIENNA+26,0
  40. Doke ZMIENNA+28,0
  41.  
  42. Loke ZMIENNA+30,$14
  43. For AF=34 To 164
  44. Poke ZMIENNA+AF,0
  45. Next 
  46. '   adres struktury w rejestrze a0 
  47. '----------------------------------------- 
  48. Areg(0)=ZMIENNA
  49.  
  50. '  wywo�anie funkcji z biblioteki arp  
  51. '----------------------------------------- 
  52. Lib Open 1,'req.library',0
  53. C=Lib Call(1,-84)
  54. Lib Close 
  55.  
  56. '         powr�t ekranu amosa
  57. '----------------------------------------- 
  58. Amos To Front 
  59.  
  60. ' odczytanie nazw pliku i ï¿½cie�ki dost�pu
  61. '----------------------------------------- 
  62.  
  63. If C<>0
  64.    NAZWA$=Peek$(Start(20),200,Chr$(0))
  65.    If Exist(NAZWA$)<>0
  66.       Print NAZWA$
  67.    Else 
  68.       Print 'Taki plik nie istnieje'
  69.    End If 
  70. Else 
  71.    Print 'Nie wybrano pliku'
  72. End If